home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / wgt_tp1.zip / WGT01.PAS < prev    next >
Pascal/Delphi Source File  |  1992-07-05  |  1KB  |  33 lines
  1. {**************************************************************************
  2.                           WordUp Graphics Toolkit
  3.                                  Demo File
  4.  
  5.  This file demonstrates the initialization of the graphics system in TP
  6.  using the driver file VGA256.BGI. The graphics will merely be opened and
  7.  closed in this example. See INITGRAPH in the TP Library Reference or
  8.  Programmer's Guide for more information.
  9.  
  10.  The WGT system is not required for this process.
  11.  **************************************************************************}
  12.  
  13. USES Graph;
  14.  
  15. VAR
  16.    grDriver, grMode : INTEGER;
  17.  
  18. BEGIN
  19.      { First tell Turbo to install our graphics driver }
  20.      grDriver := INSTALLUSERDRIVER('VGA256',NIL);
  21.  
  22.      { Now give it a dummy value for the mode (only 1 is available with
  23.        this driver file. }
  24.      grMode := 0;
  25.  
  26.      { Now start up the graphics system (replace directory to show where
  27.        your VGA256.BGI file is located }
  28.      INITGRAPH(grDriver,grMode,'c:\tp\bgi');
  29.  
  30.  
  31.      { Now shut it down as quickly as is was opened }
  32.      CLOSEGRAPH;
  33. END.